home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / genderte.d < prev    next >
Text File  |  1997-10-26  |  217b  |  10 lines
  1. DEFINITION MODULE GenderTest;
  2.  
  3. TYPE Sex = (male, female, unknown);
  4.  
  5. PROCEDURE SexTest (REF name: ARRAY OF CHAR; VAR sex: Sex);
  6. (* Liefert zurck, ob ein Name weiblich oder m„nnlich ist. 
  7.  *)
  8.  
  9. END GenderTest.
  10.